home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00006.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  1.5 KB  |  93 lines
  1. on ORDERBUTTON
  2.   global voice
  3.   puppetSprite(27, 0)
  4.   puppetSprite(48, 0)
  5.   cursor(4)
  6.   set voice to 1
  7.   formatlist()
  8.   calcsub()
  9.   calctax()
  10.   calctotal()
  11.   cursor(-1)
  12.   play frame "inventory"
  13. end
  14.  
  15. on INFOBUTTON
  16.   global voice
  17.   set voice to 0
  18.   puppetSprite(25, 0)
  19.   puppetSprite(26, 0)
  20.   puppetSprite(27, 0)
  21.   puppetSprite(12, 0)
  22.   puppetSprite(13, 0)
  23.   puppetSprite(48, 0)
  24.   play frame the frame + 1
  25. end
  26.  
  27. on HIDEBUTTON
  28.   global voice
  29.   set voice to 0
  30.   puppetSprite(25, 0)
  31.   puppetSprite(26, 0)
  32.   puppetSprite(27, 0)
  33.   puppetSprite(12, 0)
  34.   puppetSprite(13, 0)
  35.   puppetSprite(48, 0)
  36.   play frame "hide"
  37. end
  38.  
  39. on RETURNBUTTON
  40.   global voice
  41.   puppetSprite(25, 0)
  42.   puppetSprite(26, 0)
  43.   puppetSprite(27, 0)
  44.   puppetSprite(12, 0)
  45.   puppetSprite(13, 0)
  46.   puppetSprite(48, 0)
  47.   set voice to 0
  48.   if soundBusy(2) then
  49.     sound stop 2
  50.   end if
  51.   play done
  52. end
  53.  
  54. on RETURNBUTTON1
  55.   global voice
  56.   set voice to 0
  57.   if soundBusy(2) then
  58.     sound stop 2
  59.   end if
  60.   puppetSprite(25, 0)
  61.   puppetSprite(26, 0)
  62.   puppetSprite(27, 0)
  63.   puppetSprite(12, 0)
  64.   puppetSprite(13, 0)
  65.   puppetSprite(48, 0)
  66.   go("main")
  67. end
  68.  
  69. on RETURNBUTTON2
  70.   global voice
  71.   puppetSprite(25, 0)
  72.   puppetSprite(26, 0)
  73.   puppetSprite(27, 0)
  74.   puppetSprite(12, 0)
  75.   puppetSprite(13, 0)
  76.   puppetSprite(48, 0)
  77.   set voice to 0
  78.   if soundBusy(2) then
  79.     sound stop 2
  80.   end if
  81.   updateStage()
  82.   go("photo")
  83. end
  84.  
  85. on ADDORDERBUTTON
  86.   global gorderlist, currentselection
  87.   if count(gorderlist) = 0 then
  88.     addProp(gorderlist, string(currentselection), 1)
  89.   else
  90.     checkquant()
  91.   end if
  92. end
  93.